home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / PIG.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  280b  |  14 lines

  1. ' PIG.BAS
  2. ' This program demonstrates the use of string constants.
  3.  
  4. CLS
  5.  
  6. CONST PIG$ = "This little piggy "
  7.  
  8. PRINT PIG$; "went to market"
  9. PRINT PIG$; "stayed home"
  10. PRINT PIG$; "had roast beef"
  11. PRINT PIG$; "had none"
  12. PRINT PIG$; "cried 'Wee wee wee' all the way home"
  13.  
  14.